home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 026a / upsmft.zip / UPSTRANS.PRG < prev    next >
Text File  |  1986-02-10  |  3KB  |  116 lines
  1. USE SHIPMAST           
  2. ACCEPT "DATE SHIPPED:" TO A
  3. ACCEPT "UPS PICK-UP RECORD NUMBER:"TO B
  4. **************************************** VARIABLES *********
  5. X=0                      
  6. LB=0
  7. SC=0
  8. CC=0
  9. CA=0
  10. DV=0
  11. BB=0
  12. SS=0
  13. C1=0
  14. AA=0
  15. ZZ=1
  16. VV=0
  17. *************************************************************   
  18. SET DEVICE TO PRINT
  19. @1,1 SAY "DATE SHIPPED:"
  20. @1,17 SAY A
  21. @1,55 SAY "IT'S RELIEF INC."
  22. @1,95 SAY "UPS SHIPPER NUMBER: PA259-973"
  23. @2,55 SAY "BOX 1086"
  24. @2,95 SAY "UPS PICK-UP RECORD NUMBER:"
  25. @2,123 SAY B
  26. @3,55 SAY "STATE COLLEGE, PA 16804"
  27. @5,1 SAY "TRANSACTION      CONSINGEE  CONSIGNEE                 ì
  28. CITY           STATE ZIP     ZONE  WT  CHGS   COD     COD  O/S  ì
  29. DEì
  30. CLARED AOD CALL"
  31. @6,1 SAY "NUMBER           NAME       ADDRESS     ì
  32.                                                             CHGS   ì
  33. ì
  34. ì
  35.  AMT       VALUE        TAG"ì
  36.  
  37. DO WHILE .NOT. EOF() 
  38. @8+X,1 SAY ZZ      
  39. @8+X,18 SAY LAST
  40. @8+X,29 SAY SHADDRESS
  41. @8+X,55 SAY SHCITY
  42. @8+X,72 SAY SHSTATE
  43. @8+X,76 SAY SHZIP
  44. @8+X,85 SAY ZONE
  45. @8+X,89 SAY POUNDS
  46. @8+X,92 SAY SHIPCHARGE
  47. @8+X,99 SAY CODCHARGE
  48. @8+X,107 SAY CODAMT   
  49. @8+X,114 SAY OVERSIZED
  50. @8+X,117 SAY DECVALUE      
  51. @8+X,127 SAY CALLTAG
  52. X=X+1
  53. ZZ=ZZ+1
  54. IF X>99 
  55. ***************************** SUBTOTALS******************
  56. LB=LB+POUNDS
  57. SC=SC+SHIPCHARGE
  58. CC=CC+CODCHARGE
  59. CA=CA+CODAMT
  60. DV=DV+DECVALUE
  61.   @8+X+2,8 SAY "SUBTOTALS"
  62.   @8+X+2,20 SAY "POUNDS:"
  63.   @8+X+2,23 SAY LB
  64.   @8+X+2,40 SAY "CHARGES:"
  65.   @8+X+2,45 SAY SC
  66.   @8+X+2,65 SAY "COD CHARGES:"
  67.   @8+X+2,70 SAY CC
  68.   @8+X+2,85 SAY "COD AMOUNT:"
  69.   @8+X+2,90 SAY CA
  70.   @8+X+2,105 SAY "DECLARED VALUE:"
  71.   @8+X+2,117 SAY DV
  72.   @8+X+4,8 SAY " "
  73.   X=0
  74.  BB=BB+LB
  75.  SS=SS+SC
  76.  C1=C1+CC
  77.  AA=AA+CA
  78.  VV=VV+DV         
  79.  LB=0
  80.  SC=0
  81.  CC=0
  82.  CA=0
  83.  DV=0
  84.  SKIP
  85. *****************************************************************
  86. ELSE
  87. LB=POUNDS+LB
  88. SC=SHIPCHARGE+SC
  89. CC=CODCHARGE+CC
  90. CA=CODAMT+CA    
  91. DV=DECVALUE+DV 
  92. SKIP        
  93. ENDIF
  94. ENDDO
  95. BB=BB+LB
  96. SS=SS+SC
  97. C1=C1+CC
  98. AA=AA+CA
  99. VV=VV+DV
  100. ************************ TOTALS *********************************
  101. @8+X+2,8 SAY "TOTALS"
  102. @8+X+2,20 SAY "POUNDS:"
  103. @8+X+2,23 SAY BB           
  104. @8+X+2,40 SAY "CHARGES:" 
  105. @8+X+2,45 SAY SS        
  106. @8+X+2,65 SAY "COD CHARGES:"
  107. @8+X+2,70 SAY C1
  108. @8+X+2,85 SAY "COD AMOUNT:"
  109. @8+X+2,90 SAY AA
  110. @8+X+2,105 SAY "DECLARED VALUE:"
  111. @8+X+2,117 SAY VV
  112. @8+X+4,8 SAY " "
  113. SET DEVICE TO SCREEN
  114. RETURN
  115.  
  116.